(define (cons x y) (builtin-call bltn_cons x y))
(define (car c) (builtin-call bltn_car c))
(define (cdr c) (builtin-call bltn_cdr c))
(define (set-car! c x) (builtin-call/void bltn_set_car c x))
(define (set-cdr! c x) (builtin-call/void bltn_set_cdr c y))

(define (vector-ref v i) (builtin-call bltn_vector_ref v i))
(define (vector-set! v i o) (builtin-call/void bltn_vector_set v i o))

(define (eq? x y) (builtin-call builtin_eq x y))

